home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.2 / Video Toaster v4.2.iso / 3rdparty / aussie / oz / 0-morenews.rexx < prev    next >
OS/2 REXX Batch file  |  1997-05-05  |  948b  |  45 lines
  1. /* This displays doc file in "More" window */
  2.  
  3. /* By Aussie - ©1995 Michael Holten */
  4. call remlib('ToasterARexx.port')
  5. call remlib('PROJECT_REXX_PORT')
  6.  
  7. call addlib('PROJECT_REXX_PORT' , 0)
  8. call addlib('ToasterARexx.port' , 0)
  9.  
  10. if ~exists('c:more') then do
  11.   call req_tell("Sorry!","   This script could not find the"," program 'more' in your C: drawer.")
  12.   call quit()
  13.   end
  14.  
  15. test=Switcher(TOWB)
  16.  
  17. if test~='OK' then do
  18.   call req_tell("Sorry!","     This script expected to find ","    your workbench screen open.")
  19.   call quit()
  20.   end
  21.  
  22. filename="oz_news"
  23. /*
  24. path="toaster:arexx/editor/oz/"
  25. name=path||filename
  26.  
  27. if ~exists(name) then do
  28. */
  29.  
  30.    path=currentpath()
  31.    name=path||"/"||filename
  32.  
  33. if ~exists(name) then do
  34.   call req_tell("Sorry!" name,"   This script could not find the","    OZ_news document file")
  35.   call quit()
  36.   end
  37.  
  38. address command "run c:more " name
  39.  
  40. quit:
  41. call remlib('ToasterARexx.port')
  42. call remlib('PROJECT_REXX_PORT')
  43.  
  44. exit
  45.